﻿Module Module1
  Sub Main()
    Dim d As New Donna
    Dim u As New Uomo
    Console.WriteLine(u.vaiParrucchiere())
    Console.WriteLine()
    Console.WriteLine(d.vaiParrucchiere())
    Console.WriteLine()
    Console.ReadLine()
  End Sub
End Module
